home *** CD-ROM | disk | FTP | other *** search
/ PCMania 19 / PCMania19.iso / Jogos em Flash / ESTRATEGIA / BATTLE_SHIPS.SWF / scripts / frame_50 / DoAction.as
Text File  |  2003-11-17  |  423b  |  25 lines
  1. if(kv)
  2. {
  3.    x = "0";
  4.    while(x < "20")
  5.    {
  6.       y = "0";
  7.       while(y < "20")
  8.       {
  9.          if("999" < eval("p" add x add "_" add y))
  10.          {
  11.             k = eval("p" add x add "_" add y);
  12.             k -= "1000" * int(k / "1000");
  13.             set("p" add x add "_" add y,k);
  14.          }
  15.          y += "1";
  16.       }
  17.       x += "1";
  18.    }
  19. }
  20. sd -= "1";
  21. if(sd and shots)
  22. {
  23.    gotoAndPlay(49);
  24. }
  25.